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Dear Sir: 

Mark WURSTER being duly sworn, deposes and says: 

1 . I am the inventor of the patent application identified above and I am the inventor of 
the subject matter described and claimed therein. 



2. Prior to January 11, 2000, the effective date of the Surwit et al. reference (U.S. 
Patent No. 6,980,958 - hereinafter "Surwit"), I completed my invention as described 
and claimed in the subject application in this country, a NAFTA country, or a WTO 
member country. My invention was conceived in full and due diligence was used to 
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reduce it to practice, for example by filing this patent application. As evidence that 0) 

CD 

my work antedates Surwit, I refer t£ screenshots of an embodiment of the invention, 
CoagClinic (hereinafter "CoagClinic"), attached hereto as Exhibit A that I created. 
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CoagClinic is a commercial embodiment of the present invention. Dates and certain 
other proprietary disclosures, including patient's names, appearing in this document 
have been redacted. I declare that this document (Exhibit A) was created by me 
before January 1 1, 2000. 

3. Additionally, as evidence that my work antedates Surwit I refer to the extracted 
Source Code, attached hereto as Exhibit B. The Source Code comprises at least 4 
different sub-routines and 3 screen shots of forms, created prior to the effective date 
of Surwit and extracted from the original code. Dates and certain other proprietary 
disclosures appearing in this document have been redacted. I declare that this 
document (Exhibit B) was created by me before January 1 1, 2000. 

4. Claims 1-39 are pending in my application. With respect to the subject matter of 
independent claims 1, 21, and 37, both CoagClinic and Source Code discloses a 
method for using an administration of anticoagulation medication system accessed 
via a computer terminal over a network. CoagClinic, Figure 1, illustrates receiving 
current information for each patient's visit. The patient data input/output screen 
shown in Figure 1, six lines from the top on the left hand side, illustrates the input 
areas for the patient's "Visit Date," "B/P" (blood pressure), "Weight," "Height," 
"Temperature," and "Pulse." Further, CoagClinic Figure 1 and Source Code, pages 
1-12 show automatically calculating a new weekly dose medication regimen based 
on the received information. Figure 1, seven lines down on the left hand side, 
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illustrates the command button to calculate the medication dose (in this embodiment, 

Warfarin). Further, Source Code, pages 1-12, illustrates the subroutine to calculate a 

new daily/weekly medication dose based on the most recent medication dose. 



5. Both CoagClinic and Source Code disclose that the information received and the new 
weekly dose medication regimen is based on at least one of a patient's current 
weekly anticoagulation medication dose, current international normalized ratio, and 
international normalized ratio. CoagClinic, Figure 1, seven lines down on the left 
hand side, shows the "I.N.R." (International Normalized Ratio) input/output box. 
Source Code, page 13, shows the subroutine to provide instructions regarding the 
medication dose and interval based on the I.N.R. Additionally, Source Code, Forms 
1 and 3 (pages 14 & 16), the text boxes labeled "Total Dose" and "INR value" and 
fields below "SLSMHS Coagulation Clinic", respectively. These early descriptions 
provide the methods and structures of the presently claimed invention. These 

descriptions support claims 2, 3, 22, 23, 38, and 39. 

>i ... i>. 

6. CoagClinic, Figure 7 illustrates that the new weekly dose medication regimen is 
calculated based on an equation customizable by each user. Figure 7 illustrates, in 
the database embodiment, that the formula is a simple mathematical that can be 
edited by the user. This description support claims 4 and 24. 
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7. CoagClinic and Source Code show displaying standard medical guidelines in 
response to a user's request and the standard medical guidelines are published by 
American College of Chest Physicians. CoagClinic, Figure 5, illustrates four buttons 
on the right had side that provide information to the patient. Further, Source Code, 
Form 1 (page 14), illustrates text box with sample message starting "Based on the 
current INR result. . . " These descriptions support claims 5 and 6. 

8. Claims 7, 8, 25, and 26 are supported by the below descriptions. CoagClinic and 
Source Code show converting the new weekly dose medication into daily doses 
based on a number of milligrams in a single pill and receiving from a user over the 
network a setting of a predetermined number of milligrams in a single pill as defined 
by the user. CoagClinic, Figure 2,' second set of input/output boxes, allow a user to 
convert the calculated dosage into pill dosages. Further, Source Code, Form 2 (page 
15), illustrates text boxes "textl ... text9" at the bottom of the form. The text boxes 

outline the anticoagulation guidelines. 

! • .pi 

9. Regarding where the anticoagulation medication is low molecular weight heparin, 
see CoagClinic, Figure 6, the entire page. This description support claims 9 and 27. 

10. CoagClinic and Source Code disclose the subject matter for at least claims 10-18 and 
28-34, The subject matter includes searching a database of patient records based on 
at least one of patient's last name, patient's first name, medical record number, social 
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security number and patient identification and displaying a list of patients that are 

overdue for a scheduled visit as of a current date. Further embodiments illustrated 

are, the scheduled visit is overdue if delayed more than a predetermined number of 

days, as defined by a user, relative to a current date and the current information 

includes updated medication information. Also shown is that the method 

automatically displays medication interaction messages in response to receiving the 

updated medication information. Additionally, displaying a list of patients scheduled 

for a visit on a current date, selecting a particular patient from the list of patients 

scheduled, and generating a report of at least one of patient, physician, and clinic 

summary information, The report is customizable as to which fields are to be 

included therein and at least one 'of sorting and grouping of the fields included 

therein. CoagClinic, Figure 1, top of figure, "Search for overdue visits," "Search for 

flagged Charts," the buttons to print notes and reports. CoagClinic, Figure 3, lower 

half of screen, allows for medications to be entered and interactions are automatically 

displayed. Source Code, pages 17-26 and Form 3 (page 16), fields below "SLSMHS 

Coagulation Clinic", as well as buttons beneath, labeled "Print Data" and "Data to 

Clipboard", and radio buttons labeled "patient name", "physician", "INR due date", 

and "Primary Office". 

11. Regarding accessing the system via a web site and receiving a selection of 
preferences to customize configuration of the web site, I state that the Source Code is 

in Visual Basic and is designed to run on a network and is configurable to the web 

i , . . it 
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site, The disclosure that Source Code is written in Visual Basic supports claims 19 



12. CoagClinic and Source Code both disclose additional embodiments of the invention, 
CoagClinic, Figure 1, middle right had side of the form, the box labeled "Return in 

days" and Source Code, page 27, discloses automatically calculating a 

scheduled return visit based on whether the new weekly dose medication regimen 
has changed relative to the current weekly anticoagulation medication dose. These 
descriptions support claims 20 and 36. 

! u' 

13. I further declare that all statements made herein of my own knowledge are true and 
that all statements made on information and belief are believed to be true; and further 
that these statements were made with the knowledge that willful false statements and 

the like so made are punishable by fine or imprisonment, or both, under Section 1001 

h 

of Title 18 of the United States Code, and that such willful false statements may 
jeopardize the validity of the application or any patent issuing thereon. 



and 35. 
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Private Sub Textl_Change() 
Dim mystring As String 
mystring = Textl.Text 
mystring2 = Text2.Text 

If Val(mystring) < 7.5 Then 
vaSpreadl.Row = 2 
vaSpreadl.Col = 2 
vaSpreadl. Row2 = 2 
vaSpreadl.Col2 = 8 
vaSpreadl Action = 2 
vaSpreadl. Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action =14 

Elself Val(mystring) < 10 Then 
vaSpreadl.Row = 3 
vaSpreadl.Col = 2 
vaSpreadl. Row2 = 3 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2.Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 



Elself Val(mystring) < 12.5 Then 
vaSpreadl.Row = 4 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 4 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2.Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 



1 



Elself Val(mystring) < 15 Then 
vaSpreadl.Row = 5 
vaSpreadl.Col = 2 
vaSpreadl .Row2 = 5 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl .Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2.Action = 14 



Elself Val(mystring) < 17.5 Then 
vaSpread 1. Row = 6 
vaSpreadl. Col = 2 
vaSpread l.Row2 = 6 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2.Action = 2 
vaSpread2 .Action = 24 
vaSpread2. Action =14 



Elself Val(mystring) < 20 Then 
vaSpreadl.Row = 7 
vaSpreadl. Col = 2 
vaSpread l.Row2 = 7 
vaSpreadl.Col2 = 8 
vaSpreadl .Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2 .Action = 2 
vaSpread2. Action = 24 
vaSpread2.Action = 14 

Elself Val(mystring) < 22.5 Then 



2 



vaSpreadl.Row = 8 
vaSpreadl.Col = 2 
vaSpreadl.Row2 = 8 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 25 Then 
vaSpreadl.Row = 9 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 9 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl .Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action =14 

Elself Vai(mystring) < 27.5 Then 
vaSpreadl.Row = 10 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 10 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 30 Then 
vaSpreadl.Row = 11 
vaSpreadl.Col = 2 
vaSpread l.Row2= 11 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
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vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 32.5 Then 
vaSpread 1. Ro w = 12 
vaSpreadl.Col = 2 
vaSpreadl. Row2 = 12 
vaSpreadl. Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 35 Then 
vaSpread 1. Row = 13 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 13 
vaSpreadl. Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 37.5 Then 
vaSpread 1. Row = 14 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 14 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
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vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2.Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 



Elself Val(my string) < 40 Then 
vaSpreadl. Row = 15 
vaSpreadl.Col = 2 
vaSpreadl.Row2 =15 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2 .Action = 2 
vaSpread2 .Action = 24 
vaSpread2 .Action = 14 



Elself Val(mystring) < 42.5 Then 
vaSpread 1. Row = 16 
vaSpreadl. Col = 2 
vaSpread l.Row2 = 16 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 2 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 8 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action =14 
Elself Val(mystring) < 45 Then 
vaSpreadl. Row = 17 
vaSpreadl.Col = 2 
vaSpreadl. Row2 = 17 
vaSpreadl.Col2 = 8 
vaSpreadl .Action = 2 
vaSpreadl. Action = 22 
vaSpreadl. Action =14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Co!2 = 7 



5 



vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 



Elself Val(mystring) < 47.5 Then 
vaSpreadl.Row= 18 
vaSpreadl.Col = 2 
vaSpreadl.Row2 =18 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2.Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 



Elself Val(mystring) < 50 Then 
vaSpreadl .Row = 19 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 19 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2.Action = 24 
vaSpread2. Action = 14 



Elself Val(mystring) < 52.5 Then 
vaSpreadl .Row = 20 
vaSpreadl.Col = 2 
vaSpreadl.Row2 = 20 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2.Action = 2 
vaSpread2.Action = 24 
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vaSpread2. Action = 14 



Elself Val(mystring) < 55 Then 
vaSpreadl .Row = 2 1 
vaSpreadl.Col = 2 
vaSpreadl. Row2 = 21 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl .Action = 22 
vaSpreadl .Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 



Elself Val(mystring) < 60 Then 
vaSpreadl .Row = 22 
vaSpreadl.Col = 2 
vaSpreadl.Row2 = 22 
vaSpreadl.Col2 = 8 
vaSpreadl .Action = 2 
vaSpreadl .Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 65 Then 
vaSpreadl. Row = 23 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 23 
vaSpreadl.Col2 = 8 
vaSpreadl.Action = 2 
vaSpreadl .Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action =14 
Elself Val(mystring) < 70 Then 
vaSpreadl .Row = 24 
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vaSpreadl.Col = 2 
vaSpreadl.Row2 = 24 
vaSpreadl.Col2 = 8 
vaSpreadl .Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col - 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 75 Then 
vaSpreadl. Row = 25 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 25 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Ac tion= 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2.Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 80 Then 
vaSpreadl. Row = 26 
vaSpreadl. Col = 2 
vaSpread l.Row2 = 26 
vaSpreadl.Col2 = 8 
vaSpreadl .Action = 2 
vaSpreadl .Action = 22 
vaSpread 1. Ac tion= 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2.Action = 24 
vaSpread2.Action = 14 

Elself Val(mystring) < 85 Then 
vaSpreadl .Row = 27 
vaSpreadl. Col = 2 
vaSpreadl.Row2 = 27 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
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vaSpreadl .Action = 14 



vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action =14 

Elself Val(mystring) < 90 Then 
vaSpreadl. Row = 28 
vaSpreadl. Col = 2 
vaSpreadl.Row2 = 28 
vaSpreadl.Col2 = 8 
vaSpreadl .Action = 2 
vaSpreadl. Action = 22 
vaSpreadl .Action =14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 95 Then 
vaSpreadl. Row = 29 
vaSpreadl. Col = 2 
vaSpreadl. Row2 = 29 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl .Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2.Action = 24 
vaSpread2 .Action = 14 

Elself Val(mystring) < 100 Then 
vaSpreadl.Row = 30 
vaSpreadl.Col = 2 
vaSpreadl. Row2 = 30 
vaSpreadl. Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
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vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2.Action = 14 

Elself Val(mystring) < 105 Then 
vaSpreadl.Row = 31 
vaSpreadl.Col = 2 
vaSpreadl.Row2 = 31 
vaSpreadl.Col2 = 8 
vaSpreadl .Action = 2 
vaSpreadl .Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 1 10 Then 
vaSpreadl. Row = 32 
vaSpreadl.Col = 2 
vaSpreadl. Row2 = 32 
vaSpreadl.Co!2 = 8 
vaSpreadl. Action = 2 
vaSpreadl .Action = 22 
vaSpreadl .Action - 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2 .Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 115 Then 
vaSpreadl .Row = 33 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 33 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action =14 
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Elself Val(mystring) < 120 Then 
vaSpreadl.Row = 34 
vaSpreadl.Col = 2 
vaSpreadl.Row2 = 34 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2 .Action = 14 

Elself Val(mystring) < 125 Then 
vaSpreadl.Row = 35 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 35 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl .Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 130 Then 
vaSpreadl.Row = 36 
vaSpreadl.Col = 2 
vaSpreadl. Row2 = 36 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 135 Then 
vaSpreadl.Row = 37 
vaSpreadl.Col = 2 
vaSpread l.Row2 = 37 
vaSpreadl.Col2 = 8 
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vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpread 1. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

Elself Val(mystring) < 140 Then 
vaSpreadl.Row = 38 
vaSpreadl. Col = 2 
vaSpread l.Row2 = 38 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col= 1 
vaSpread2.Row2 - 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2.Action = 24 
vaSpread2 .Action = 14 

Elself Val(mystring) < 145 Then 
vaSpreadl .Row = 39 
vaSpreadl .Col = 2 
vaSpreadl .Row2 = 39 
vaSpreadl.Col2 = 8 
vaSpreadl. Action = 2 
vaSpreadl. Action = 22 
vaSpreadl. Action = 14 

vaSpread2.Row = 9 
vaSpread2.Col = 1 
vaSpread2.Row2 = 9 
vaSpread2.Col2 = 7 
vaSpread2. Action = 2 
vaSpread2. Action = 24 
vaSpread2. Action = 14 

End If 

End Sub 

Private Sub Text2_Change() 
Dim mystring2 
mystring2 = Text2.Text 
If Val(mystring2) < 5 Then 
Coagclinicl.Text2.Text = 
Exit Sub 



End If 

If Val(mystring2) < 8 Then 
LabeI4.Visible = True 

Coagclinic 1. Text 1 1. Text = "Hold Coumadin for one day, adjust Rx, notify pt's Dr." 

Elself Val(mystring2) < 10 Then 
Label5.Visible = True 

Coagclinic 1. Text 1 1 .Text = "Hold Coumadin for two days, adjust Rx, notify pt's Dr." 

Elself Val(mystring2) < 100 Then 
Label6. Visible = True 

Coagclinic 1. Text 1 1. Text = "Hold Coumadin for two days, adjust Rx, pt's Dr notified." 
End If 



® Based on the current INR result, consideration should be given to 

withholding Coumadin for at least two days, and then following the 

schedule for Coumadin use outlined below. a Based on the current INR 

result, consideration should be given to withholding Coumadin for one 
day, and then following the schedule for Coumadin use outlined 

below. ¥ Based on the current INR result, consideration should be 

given to withholding Coumadin for two days, and then following the 
schedule for Coumadin use outlined below. 
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Table 1. 



The following message is displayed when any of the meds below is selected as part of the patient's 
medication regimen: 

"This medication (in some cases a medication with similar properties) has been reported to decrease the 
INR and/or anticoagulation effect in patients taking warfarin. Caution should be exercised when using this 
medication in combination with warfarin. INR measurement may be required more frequently while the 
patient is on this medication. Frequent INR monitoring is essential when starting or stopping this 
medication, or when adjusting the dose of this medication for a patient on warfarin." 

Aldactone 
Alesse-21 
Alesse-28 

Alora transdermal system 

Alternagel 

Amicar 

Aminocaproic acid 

Aminoglutethimide 

Amobarbital 

Amphogel 

Anadrol 

Androderm Transdermal System 

Android 

Antipyrine 

Arginine Vasopressin 

Atorvastatin 

Azathioprine 

Barbiturates 

Brevicon-21 

Brevicon-28 

Butabarbital 

Butalbital 

Calcium carbonate 

Carafate 

Carbamazepine 

Celestone Soluspan Injectable 

Cenestin 

Chloral hydrate 

Chlordiazepoxide 

Chlorthalidone 

Cholestyramine 

Climara Transdermal System 

Combipatch Transdermal 

Contraceptives, hormonal-need brand names and generics 

Corticosteroids 

Corticotropin 

Cortisone 

Cortone Acetate 

Cortone Acetate Injectable 

Cyclophosphamide 

Cyclosporine 

Cytoxan 

DDAVP 

Decadron 

Decadron Elixir 
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Decadron Tablets 

Demulen 

Depo-Provera 

Desmopressin 

Desogen 

Desyrel 

Dicloxacillin 

Dilantin 

Disopyramide 

Estinyl 

Estrace 

Estrogen 

Estrostep Fe 

Ethchlorvynol 

Ethmozine 

Etretinate 

Fulvicin 

Glutethimide 

Griseofulvin 

Haldol 

Haloperidol 

Hydrocortone 

Imuran 

Indapamide 

Levora 

Lo/Ovral 

Lozol 

Maalox 

Mebaral 

Megace 

Mercaptopurine 

Methaqualone 

Methimazole 

Metolazone 

Mircette 

Mitotane 

Modicon 

Moricizine 

Mykrox 

Mylanta 

Mysoline 

Nafcillin 

Necon 

Nembutal 

Nordette 

Norinyl 

Ogen 

Orlistat 

Ortho-cept 

Ortho-Cyclen 

Ortho-Est 

Ortho-Novum 

Ortho-Tricyclin 

Ovcon 

Ovral 



Oxandrin 

Paraldehyde 

Pediapred 

Pentobarbital 

Phenobarbital 

Phenytoin 

Prednisone 

Prelone 

Premarin 

Premphase 

Prempro 

Primidone 

Progesterone 

Propylthiouracil 

Provera 

PTU 

Ranitidine 

Rifampin 

Riopan 

Secobarbital 

Solu-Medrol 

Spironolactone 

Sucralfate 

Tegretol 

Testoderm 

Testred 

Trazodone 

Tri-Norinyl 

Triphasil 

Trivora 

Turns 

Vitamin C 

Vitamin K 

Vivelle Transdermal System 

Vivelle-Dot Transdermal System 

Winstrol 

Xenical 

Zaroxolyn 

Zovia 

Table 2. 

The following message is displayed when any of the meds below is selected as part of the patient's 
medication regimen: 

"This medication (in some cases a medication with similar properties) has been reported to increase the 
INR and/or anticoagulation effect in patients taking warfarin. Caution should be exercised when using this 
medication in combination with warfarin. INR measurement may be required more frequently while the 
patient is on this medication. Frequent INR monitoring is essential when starting or stopping this 
medication, or when adjusting the dose of this medication for a patient on warfarin." 
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Abbokinase 

Abciximab 

Accolate 

Acetaminophen 

Achromycin 

Alcohol 

Aldomet 

Allopurinol 

Alteplase 

Amikacin 

Aminoglycosides 

Aminosalicylic Acid 

Amiodarone 

Amitryptiline 

Anaprox 

Ancef 

Androderm 

Androgel 

Ansaid 

Ardeparin 

Aristocort 

Armour thyroid 

Arthrotec 

Ascorbic acid 

Ascriptin 

Aspirin 

Azulfidine 

Bactrim 

Biaxin 

Bufferin 

Cataflam 

Ceclor 

Cedax 

Cefamandole 

Cefazolin 

Cefizox 

Cefobid 

Cefoperazone 

Cefotetan 

Cefoxitin 

Ceftin 

Ceftriaxone 

Cefzil 

Celebrex 

Celecoxib 

Ceptaz 

Chenodiol 

Chloral hydrate 

Chloramphenicol 
Chloromycetin 
Chlorpropamide 
Cholestyramine 

Choline Magnesium Trisalicylate 



Cilostazol 

Cimetidine 

Cipro 

Ciprofloxacin 
Cisapride 
Claforan 
Clinoril 
Clofibrate 
Clopidrogrel 
Clozapine 
Clozaril 
Cordarone 
Cortef 
Cortisone 
Cortone 
Cotrim 
Cytomel 
Danaparoid 
Danazol 
Danocrine 
Danshen 
Daypro 
Decadron 
Declomycin 
Deltasone 
Depakene 
Depo-testosterone 
Dexamethasone 
Dextran 

Dextrothyroxine 

Diazoxide 

Diclofenac 

Dicumarol 

Diflusinal 

Digoxin immune Fab 

Dilantin 

Dipyradamole 

Disalcid 

Disopyramide 

Disulfiram 

Dolobid 

Doryx 

Doxycycline 

Duricef 

Dynabac 

Dynacin 

E.E.S. 

Ecotrin 

Edecrine 

Elavil 

E-Mycin 

Enoxaparin 

Epoprostenol 

Eryc 

EryPed 

Ery-Tab 



Erythrocin 

Erythromycin 

Ethacrynic acid 

Ethmozine 

Etodolac 

Etoposide 

Etrafon 

Excedrin 

Feldene 

Fenofibrate 

Fenoprofen 

Flagyl 

Flolan 

Florinef 

Floxin 

Fluconazole 

Fludrocortisone 

Fluoroquinolones 

Fluorouracil 

Fluoxetine 

Fluoxymesterone 

Flurbiprofen 

Flutamide 

Fluvastatin 

Fluvoxamine 

Fortaz 

Fragmin 

Gantanol 

Gantrisin 

Garamycin 

Gemfibrozil 

Gentamicin 

Glucagon 

Glyburide 

Halfprin 

Halotestin 

Halothane 

Heparin 

Hydrocortisone 

Hyperstat 

Ibuprofen 

Ifosfamide 

Ilosone 

Inderal 

Indomethacin 

Influenza vaccine 

Inhalation anesthetics 

Interferon 

Isoniazid 

Kabikinase 

Keflex 

Keftab 

Kefzol 

Ketoconazole 

Ketoprofen 

Lescol 



Levamisole 

Levaquin 

Levofloxacin 

Levothroid 

Levothyroxine 

Levoxyl 

Limbitrol 

Liothyronine 

Liotrix 

Lodine 

Lomefloxacin 

Lopid 

Lortab 

Lovastatin 

Lovenox 

L-thyroxine 

Luvox 

Mandol 

Maxipime 

Meclofenamate 

Meclomen 

Medrol 

Mefenamic acid 

Meloxicam 

Methimazole 

Methyldopa 

Methylphenidate 

Methylprednisolone 

Methylsalicylate ointment 

Metronidazole 

Mevacor 

Miconazole 

Minocin 

Minocycline 

Mobic 

Monistat 

Monodox 

Moricizine 

Moxaquin 

Nabumetone 

Nalidixic acid 

Naprosyn 

Naproxen 

Nebcin 

Neggram 

Neomycin 

Netromycin 

Nolvadex 

Norfloxacin 

Normiflo 

Noroxin 

Norpace 

Norpramin 

Ofloxacin 

Oral hypoglycemics 
Orgaran 



Orinase 

Orlistat 

Orudis 

Oxaprozin 

Oxymetholone 

Paroxetine 

Paxil 

PCE 

Pediazole 

Penicillin G 

Pentoxiphylline 

Periostat 

Persantine 

Phenylbutazone 

Phenytoin 

Piperacillin 

Piperacillin/Tazobactam 

Pipracil 

Piroxicam 

Plavix 

Pletal 

Ponstel 

Prednisolone 

Prednisone 

Propafenone 

Propanolol 

Propoxyphene 

Prozac 

Quinaglute 

Quinidex 

Quinidine 

Quinine 

Ranitidine 

Relafen 

Reopro 

Rifater 

Ritalin 

Rocephin 

Rythmol 

Salflex 

Saisalate 

Septra 

Septra DS 

Sertraline 

Simvastatin 

Sinequan 

Solucortef 

Solu-medrol 

Stanozolol 

Sterapred 

Streptase 

Streptokinase 

Streptomycin 

Sulfadiazine 

Sulfamethizole 

Sulfamethoxazole 



Sulfamethoxazole/Trimethoprim 

Sulfasalazine 

Sulfinpyrazone 

Sulfizoxazole 

Sulindac 

Suprax 

Surmontil 

Synthroid 

Tamoxifen 

Tao capsules 

Tapazole 

Tazicef 

Terramycin 

Testosterone cypionate 

Testosterone topical 

Testosterone Transdermal 

Tetracycline 

Thyroid desiccated 

Thyroid hormone 

Thyrolar 

Ticar 

Ticarcillin 

Ticlid 

Ticlopidine 

Tissue plasminogen activator 

Tolbutamide 

Tolectin 

Tolmetin 

Toradol 

t-PA 

Tramadol 

Triamcinolone 

Triavil 

Tricor 

Trilisate 

Triostat 

Trovan 

Tylenol 

Ultram 

Urokinase 

Valproate 

Valproic Acid 

Vantin 

Vectrin 

Vibramycin 

Vibra-Tabs 

Vioxx 

Vitamin C 

Vitamin E 

Vivactil 

Voltaren 

Xenical 

Zafirlukast 

Zagam 

Zantac 

Zileuton 



Zinacef 

Zithromax 

Zocor 

Zoloft 

Zosyn 

Zyflo 

Zyloprim 



If Val(mystring) < 0.1 Then 

Text3.Text = "Anticoagulation Guidelines" 

Elself Val(mystring) < 2.5 Then Text3.Text = "Possibly subtherapeutic dose. Consider repeating test and/or 
adjusting dose." 
'Case 2 To 4 

Elself Val(mystring) < 4 Then Text3.Text = "Therapeutic dose" 

Elself Val(mystring) < 6 Then TextS.Text = "Always consider repeating the test. Consider: omit next 1-3 
doses of warfarin or coumadin,then resume warfarin or Coumadin at a lower dose" 

Elself Val(mystring) < 10 Then Text3.Text = "Always consider repeating the test. Consider: omit the next 
few doses of warfarin or Coumadin, and consider vitamin K 1-2 mg subcutaneously (NOT IV). If INR 
remains too high after 24 hours, an additional 0.5mg of vitamin K can be given" 

Elself Val(mystring) < 100 Then Text3.Text = "Always consider repeating the test. Consider: omit the 
next 1-3 doses of warfarin or Coumadin, and consider vitamin K, 3 mg subcutaneously (NOT IV). Recheck 
INR in 6 hours and repeat Vitamin K if necessary." 
'Case 21 To 100 
'Eise:Text3.Text = "" 
Text3. Visible = True 

Text3.Text = "Always consider repeating the test. If patient bleeding, consider Vitamin K 10 mg 
subcutaneously and supplement with FFP or prothrombin complex concentrate depending on urgency of 
situation. Check INR every 6 hrs. May repeat Vit K every 12 hrs." 
'End If 

'End Select 
End If 
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